library(ggplot2)
  library(data.table)
  library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
  library(TSstudio)
  
  
 #read data as a table 
  x_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_X_TRAIN")
  y_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_Y_TRAIN")
  z_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_Z_TRAIN")
  ecg <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/ecgTrain")
  
  #combine these tables in a three different col. 
  mdata <- data.frame(c1 = x_train,  
                      c2 = y_train,
                      c3=  z_train)
  #see the time series
  ##mdata
  ts.plot(mdata)

  #in a three different dimension vector
  x=x_train$V2
  y=y_train$V2
  z=z_train$V2
  
  #plot result
  p=plot_ly(ecg,x=~x,y=~y,z=~z)
  p
## No trace type specified:
##   Based on info supplied, a 'scatter3d' trace seems appropriate.
##   Read more about this trace type -> https://plotly.com/r/reference/#scatter3d
## No scatter3d mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
  #Part b
  
  library(readxl)

    
  #read & check data
  ildist = read_xlsx("/Users/okansayar/Desktop/R/RStudio Directory/ilmesafe.xlsx")
  ildist
## # A tibble: 81 × 83
##    `İL PLAKA NO` `İL ADI`      ADANA ADIYAMAN AFYONKARAHİSAR  AĞRI AMASYA ANKARA
##    <chr>         <chr>         <dbl>    <dbl>          <dbl> <dbl>  <dbl>  <dbl>
##  1 01            ADANA             0      338            579   978    604    492
##  2 02            ADIYAMAN        338        0            917   646    628    738
##  3 03            AFYONKARAHİS…   579      917              0  1320    596    255
##  4 04            AÄžRI            978      646           1320     0    740   1056
##  5 05            AMASYA          604      628            596   740      0    331
##  6 06            ANKARA          492      738            255  1056    331      0
##  7 07            ANTALYA         548      886            287  1426    824    543
##  8 08            ARTVİN         1005      717           1225   365    679    960
##  9 09            AYDIN           881     1219            340  1635    936    596
## 10 10            BALIKESİR       903     1241            324  1576    842    536
## # … with 71 more rows, and 75 more variables: ANTALYA <dbl>, ARTVİN <dbl>,
## #   AYDIN <dbl>, BALIKESİR <dbl>, BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>,
## #   BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>,
## #   ÇORUM <dbl>, DENİZLİ <dbl>, DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>,
## #   ERZİNCAN <dbl>, ERZURUM <dbl>, ESKİŞEHİR <dbl>, GAZİANTEP <dbl>,
## #   GİRESUN <dbl>, GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>,
## #   MERSİN <dbl>, İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, …
  str(ildist)
## tibble [81 × 83] (S3: tbl_df/tbl/data.frame)
##  $ İL PLAKA NO        : chr [1:81] "01" "02" "03" "04" ...
##  $ İL ADI             : chr [1:81] "ADANA" "ADIYAMAN" "AFYONKARAHİSAR" "AĞRI" ...
##  $ ADANA              : num [1:81] 0 338 579 978 604 ...
##  $ ADIYAMAN           : num [1:81] 338 0 917 646 628 ...
##  $ AFYONKARAHİSAR     : num [1:81] 579 917 0 1320 596 ...
##  $ AÄžRI               : num [1:81] 978 646 1320 0 740 ...
##  $ AMASYA             : num [1:81] 604 628 596 740 0 331 824 679 936 842 ...
##  $ ANKARA             : num [1:81] 492 738 255 1056 331 ...
##  $ ANTALYA            : num [1:81] 548 886 287 1426 824 ...
##  $ ARTVİN             : num [1:81] 1005 717 1225 365 679 ...
##  $ AYDIN              : num [1:81] 881 1219 340 1635 936 ...
##  $ BALIKESİR          : num [1:81] 903 1241 324 1576 842 ...
##  $ BİLECİK            : num [1:81] 786 1039 207 1361 626 ...
##  $ BİNGÖL             : num [1:81] 633 348 1099 352 642 ...
##  $ BİTLİS             : num [1:81] 746 414 1290 232 833 ...
##  $ BOLU               : num [1:81] 689 927 417 1146 411 ...
##  $ BURDUR             : num [1:81] 649 987 166 1403 762 ...
##  $ BURSA              : num [1:81] 857 1111 278 1417 683 ...
##  $ ÇANAKKALE          : num [1:81] 1097 1390 518 1694 959 ...
##  $ ÇANKIRI            : num [1:81] 591 769 398 987 247 131 686 882 738 663 ...
##  $ ÇORUM              : num [1:81] 582 704 505 831 91 240 732 720 845 786 ...
##  $ DENİZLİ            : num [1:81] 762 1100 221 1516 817 ...
##  $ DİYARBAKIR         : num [1:81] 538 206 1110 440 707 ...
##  $ EDİRNE             : num [1:81] 1183 1421 682 1641 906 ...
##  $ ELAZIÄž             : num [1:81] 496 284 961 492 538 ...
##  $ ERZİNCAN           : num [1:81] 677 548 955 370 375 ...
##  $ ERZURUM            : num [1:81] 809 522 1141 182 560 ...
##  $ ESKİŞEHİR          : num [1:81] 691 959 141 1298 574 ...
##  $ GAZİANTEP          : num [1:81] 216 151 795 762 583 ...
##  $ GİRESUN            : num [1:81] 720 706 868 539 322 ...
##  $ GÜMÜŞHANE          : num [1:81] 780 678 1027 381 424 ...
##  $ HAKKARİ            : num [1:81] 910 655 1489 425 1164 ...
##  $ HATAY              : num [1:81] 196 317 776 957 681 ...
##  $ ISPARTA            : num [1:81] 619 957 167 1373 719 ...
##  $ MERSİN             : num [1:81] 69 407 572 1047 638 ...
##  $ İSTANBUL           : num [1:81] 951 1189 450 1408 674 ...
##  $ İZMİR              : num [1:81] 908 1246 329 1649 925 ...
##  $ KARS               : num [1:81] 1014 727 1343 214 762 ...
##  $ KASTAMONU          : num [1:81] 696 875 504 990 255 237 791 846 844 677 ...
##  $ KAYSERİ            : num [1:81] 335 421 523 816 344 316 616 823 825 848 ...
##  $ KIRKLARELİ         : num [1:81] 1160 1398 659 1617 882 ...
##  $ KIRŞEHİR           : num [1:81] 377 556 425 940 313 183 570 942 765 706 ...
##  $ KOCAELİ (İZMİT)    : num [1:81] 841 1079 340 1298 563 ...
##  $ KONYA              : num [1:81] 358 696 226 1112 510 ...
##  $ KÜTAHYA            : num [1:81] 676 1014 97 1377 653 ...
##  $ MALATYA            : num [1:81] 397 186 863 587 460 ...
##  $ MANİSA             : num [1:81] 887 1224 308 1628 903 ...
##  $ KAHRAMANMARAÅž      : num [1:81] 198 163 777 809 508 ...
##  $ MARDİN             : num [1:81] 549 295 1128 514 802 ...
##  $ MUÄžLA              : num [1:81] 858 1196 364 1658 959 ...
##  $ MUÅž                : num [1:81] 743 456 1208 241 751 ...
##  $ NEVŞEHİR           : num [1:81] 288 504 444 889 358 275 537 896 746 769 ...
##  $ NİĞDE              : num [1:81] 210 548 464 940 440 340 545 947 766 788 ...
##  $ ORDU               : num [1:81] 708 732 823 584 277 ...
##  $ RİZE               : num [1:81] 918 772 1077 430 531 ...
##  $ SAKARYA (ADAPAZARI): num [1:81] 803 1041 302 1261 526 ...
##  $ SAMSUN             : num [1:81] 754 757 676 730 131 ...
##  $ SİİRT              : num [1:81] 721 390 1297 328 894 ...
##  $ SİNOP              : num [1:81] 868 883 676 894 257 ...
##  $ SİVAS              : num [1:81] 428 413 706 618 221 ...
##  $ TEKİRDAĞ           : num [1:81] 1082 1320 581 1539 804 ...
##  $ TOKAT              : num [1:81] 493 517 645 674 113 380 873 617 985 926 ...
##  $ TRABZON            : num [1:81] 839 780 998 482 452 ...
##  $ TUNCELİ            : num [1:81] 631 419 1079 419 498 ...
##  $ ÅžANLIURFA          : num [1:81] 355 112 934 617 711 ...
##  $ UÅžAK               : num [1:81] 691 1029 112 1432 708 ...
##  $ VAN                : num [1:81] 905 573 1424 228 967 ...
##  $ YOZGAT             : num [1:81] 490 619 479 841 200 214 683 829 819 760 ...
##  $ ZONGULDAK          : num [1:81] 765 1003 484 1205 471 ...
##  $ AKSARAY            : num [1:81] 268 580 368 965 421 224 461 972 670 692 ...
##  $ BAYBURT            : num [1:81] 801 676 1080 305 457 ...
##  $ KARAMAN            : num [1:81] 293 631 340 1113 621 ...
##  $ KIRIKKALE          : num [1:81] 486 665 338 985 260 74 563 889 679 620 ...
##  $ BATMAN             : num [1:81] 634 302 1210 366 807 ...
##  $ ÅžIRNAK             : num [1:81] 720 465 1299 424 1001 ...
##  $ BARTIN             : num [1:81] 784 1022 518 1171 436 ...
##  $ ARDAHAN            : num [1:81] 1039 751 1362 305 781 ...
##  $ IÄžDIR              : num [1:81] 1081 750 1464 144 884 ...
##  $ YALOVA             : num [1:81] 906 1144 342 1363 628 ...
##  $ KARABÜK            : num [1:81] 714 952 448 1106 371 ...
##  $ KİLİS              : num [1:81] 252 210 831 817 647 ...
##  $ OSMANİYE           : num [1:81] 89 245 668 885 609 581 637 912 970 992 ...
##  $ DÜZCE              : num [1:81] 735 973 371 1192 458 ...
  # remove first row storing the names
  ildist1=ildist[, -1]
  ildist1
## # A tibble: 81 × 82
##    `İL ADI`     ADANA ADIYAMAN AFYONKARAHİSAR  AĞRI AMASYA ANKARA ANTALYA ARTVİN
##    <chr>        <dbl>    <dbl>          <dbl> <dbl>  <dbl>  <dbl>   <dbl>  <dbl>
##  1 ADANA            0      338            579   978    604    492     548   1005
##  2 ADIYAMAN       338        0            917   646    628    738     886    717
##  3 AFYONKARAHİ…   579      917              0  1320    596    255     287   1225
##  4 AÄžRI           978      646           1320     0    740   1056    1426    365
##  5 AMASYA         604      628            596   740      0    331     824    679
##  6 ANKARA         492      738            255  1056    331      0     543    960
##  7 ANTALYA        548      886            287  1426    824    543       0   1433
##  8 ARTVİN        1005      717           1225   365    679    960    1433      0
##  9 AYDIN          881     1219            340  1635    936    596     346   1565
## 10 BALIKESİR      903     1241            324  1576    842    536     506   1452
## # … with 71 more rows, and 73 more variables: AYDIN <dbl>, BALIKESİR <dbl>,
## #   BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>, BOLU <dbl>, BURDUR <dbl>,
## #   BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>, ÇORUM <dbl>, DENİZLİ <dbl>,
## #   DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>, ERZİNCAN <dbl>,
## #   ERZURUM <dbl>, ESKİŞEHİR <dbl>, GAZİANTEP <dbl>, GİRESUN <dbl>,
## #   GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>, MERSİN <dbl>,
## #   İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, KAYSERİ <dbl>, …
  ildist2=ildist1[, -1]
  str(ildist2)
## tibble [81 × 81] (S3: tbl_df/tbl/data.frame)
##  $ ADANA              : num [1:81] 0 338 579 978 604 ...
##  $ ADIYAMAN           : num [1:81] 338 0 917 646 628 ...
##  $ AFYONKARAHİSAR     : num [1:81] 579 917 0 1320 596 ...
##  $ AÄžRI               : num [1:81] 978 646 1320 0 740 ...
##  $ AMASYA             : num [1:81] 604 628 596 740 0 331 824 679 936 842 ...
##  $ ANKARA             : num [1:81] 492 738 255 1056 331 ...
##  $ ANTALYA            : num [1:81] 548 886 287 1426 824 ...
##  $ ARTVİN             : num [1:81] 1005 717 1225 365 679 ...
##  $ AYDIN              : num [1:81] 881 1219 340 1635 936 ...
##  $ BALIKESİR          : num [1:81] 903 1241 324 1576 842 ...
##  $ BİLECİK            : num [1:81] 786 1039 207 1361 626 ...
##  $ BİNGÖL             : num [1:81] 633 348 1099 352 642 ...
##  $ BİTLİS             : num [1:81] 746 414 1290 232 833 ...
##  $ BOLU               : num [1:81] 689 927 417 1146 411 ...
##  $ BURDUR             : num [1:81] 649 987 166 1403 762 ...
##  $ BURSA              : num [1:81] 857 1111 278 1417 683 ...
##  $ ÇANAKKALE          : num [1:81] 1097 1390 518 1694 959 ...
##  $ ÇANKIRI            : num [1:81] 591 769 398 987 247 131 686 882 738 663 ...
##  $ ÇORUM              : num [1:81] 582 704 505 831 91 240 732 720 845 786 ...
##  $ DENİZLİ            : num [1:81] 762 1100 221 1516 817 ...
##  $ DİYARBAKIR         : num [1:81] 538 206 1110 440 707 ...
##  $ EDİRNE             : num [1:81] 1183 1421 682 1641 906 ...
##  $ ELAZIÄž             : num [1:81] 496 284 961 492 538 ...
##  $ ERZİNCAN           : num [1:81] 677 548 955 370 375 ...
##  $ ERZURUM            : num [1:81] 809 522 1141 182 560 ...
##  $ ESKİŞEHİR          : num [1:81] 691 959 141 1298 574 ...
##  $ GAZİANTEP          : num [1:81] 216 151 795 762 583 ...
##  $ GİRESUN            : num [1:81] 720 706 868 539 322 ...
##  $ GÜMÜŞHANE          : num [1:81] 780 678 1027 381 424 ...
##  $ HAKKARİ            : num [1:81] 910 655 1489 425 1164 ...
##  $ HATAY              : num [1:81] 196 317 776 957 681 ...
##  $ ISPARTA            : num [1:81] 619 957 167 1373 719 ...
##  $ MERSİN             : num [1:81] 69 407 572 1047 638 ...
##  $ İSTANBUL           : num [1:81] 951 1189 450 1408 674 ...
##  $ İZMİR              : num [1:81] 908 1246 329 1649 925 ...
##  $ KARS               : num [1:81] 1014 727 1343 214 762 ...
##  $ KASTAMONU          : num [1:81] 696 875 504 990 255 237 791 846 844 677 ...
##  $ KAYSERİ            : num [1:81] 335 421 523 816 344 316 616 823 825 848 ...
##  $ KIRKLARELİ         : num [1:81] 1160 1398 659 1617 882 ...
##  $ KIRŞEHİR           : num [1:81] 377 556 425 940 313 183 570 942 765 706 ...
##  $ KOCAELİ (İZMİT)    : num [1:81] 841 1079 340 1298 563 ...
##  $ KONYA              : num [1:81] 358 696 226 1112 510 ...
##  $ KÜTAHYA            : num [1:81] 676 1014 97 1377 653 ...
##  $ MALATYA            : num [1:81] 397 186 863 587 460 ...
##  $ MANİSA             : num [1:81] 887 1224 308 1628 903 ...
##  $ KAHRAMANMARAÅž      : num [1:81] 198 163 777 809 508 ...
##  $ MARDİN             : num [1:81] 549 295 1128 514 802 ...
##  $ MUÄžLA              : num [1:81] 858 1196 364 1658 959 ...
##  $ MUÅž                : num [1:81] 743 456 1208 241 751 ...
##  $ NEVŞEHİR           : num [1:81] 288 504 444 889 358 275 537 896 746 769 ...
##  $ NİĞDE              : num [1:81] 210 548 464 940 440 340 545 947 766 788 ...
##  $ ORDU               : num [1:81] 708 732 823 584 277 ...
##  $ RİZE               : num [1:81] 918 772 1077 430 531 ...
##  $ SAKARYA (ADAPAZARI): num [1:81] 803 1041 302 1261 526 ...
##  $ SAMSUN             : num [1:81] 754 757 676 730 131 ...
##  $ SİİRT              : num [1:81] 721 390 1297 328 894 ...
##  $ SİNOP              : num [1:81] 868 883 676 894 257 ...
##  $ SİVAS              : num [1:81] 428 413 706 618 221 ...
##  $ TEKİRDAĞ           : num [1:81] 1082 1320 581 1539 804 ...
##  $ TOKAT              : num [1:81] 493 517 645 674 113 380 873 617 985 926 ...
##  $ TRABZON            : num [1:81] 839 780 998 482 452 ...
##  $ TUNCELİ            : num [1:81] 631 419 1079 419 498 ...
##  $ ÅžANLIURFA          : num [1:81] 355 112 934 617 711 ...
##  $ UÅžAK               : num [1:81] 691 1029 112 1432 708 ...
##  $ VAN                : num [1:81] 905 573 1424 228 967 ...
##  $ YOZGAT             : num [1:81] 490 619 479 841 200 214 683 829 819 760 ...
##  $ ZONGULDAK          : num [1:81] 765 1003 484 1205 471 ...
##  $ AKSARAY            : num [1:81] 268 580 368 965 421 224 461 972 670 692 ...
##  $ BAYBURT            : num [1:81] 801 676 1080 305 457 ...
##  $ KARAMAN            : num [1:81] 293 631 340 1113 621 ...
##  $ KIRIKKALE          : num [1:81] 486 665 338 985 260 74 563 889 679 620 ...
##  $ BATMAN             : num [1:81] 634 302 1210 366 807 ...
##  $ ÅžIRNAK             : num [1:81] 720 465 1299 424 1001 ...
##  $ BARTIN             : num [1:81] 784 1022 518 1171 436 ...
##  $ ARDAHAN            : num [1:81] 1039 751 1362 305 781 ...
##  $ IÄžDIR              : num [1:81] 1081 750 1464 144 884 ...
##  $ YALOVA             : num [1:81] 906 1144 342 1363 628 ...
##  $ KARABÜK            : num [1:81] 714 952 448 1106 371 ...
##  $ KİLİS              : num [1:81] 252 210 831 817 647 ...
##  $ OSMANİYE           : num [1:81] 89 245 668 885 609 581 637 912 970 992 ...
##  $ DÜZCE              : num [1:81] 735 973 371 1192 458 ...
  ildist2
## # A tibble: 81 × 81
##    ADANA ADIYAMAN AFYONKARAHİSAR  AĞRI AMASYA ANKARA ANTALYA ARTVİN AYDIN
##    <dbl>    <dbl>          <dbl> <dbl>  <dbl>  <dbl>   <dbl>  <dbl> <dbl>
##  1     0      338            579   978    604    492     548   1005   881
##  2   338        0            917   646    628    738     886    717  1219
##  3   579      917              0  1320    596    255     287   1225   340
##  4   978      646           1320     0    740   1056    1426    365  1635
##  5   604      628            596   740      0    331     824    679   936
##  6   492      738            255  1056    331      0     543    960   596
##  7   548      886            287  1426    824    543       0   1433   346
##  8  1005      717           1225   365    679    960    1433      0  1565
##  9   881     1219            340  1635    936    596     346   1565     0
## 10   903     1241            324  1576    842    536     506   1452   291
## # … with 71 more rows, and 72 more variables: BALIKESİR <dbl>, BİLECİK <dbl>,
## #   BİNGÖL <dbl>, BİTLİS <dbl>, BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>,
## #   ÇANAKKALE <dbl>, ÇANKIRI <dbl>, ÇORUM <dbl>, DENİZLİ <dbl>,
## #   DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>, ERZİNCAN <dbl>,
## #   ERZURUM <dbl>, ESKİŞEHİR <dbl>, GAZİANTEP <dbl>, GİRESUN <dbl>,
## #   GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>, MERSİN <dbl>,
## #   İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, KAYSERİ <dbl>, …
  # apply multidimensional scaling
  mds_fit=cmdscale(ildist2, k = 2, )
  
  # getting coordinates
  x=mds_fit[, 1]
  y=mds_fit[, 2]
  
  # plotting
  plot(x, y, pch = 19)
  ildist
## # A tibble: 81 × 83
##    `İL PLAKA NO` `İL ADI`      ADANA ADIYAMAN AFYONKARAHİSAR  AĞRI AMASYA ANKARA
##    <chr>         <chr>         <dbl>    <dbl>          <dbl> <dbl>  <dbl>  <dbl>
##  1 01            ADANA             0      338            579   978    604    492
##  2 02            ADIYAMAN        338        0            917   646    628    738
##  3 03            AFYONKARAHİS…   579      917              0  1320    596    255
##  4 04            AÄžRI            978      646           1320     0    740   1056
##  5 05            AMASYA          604      628            596   740      0    331
##  6 06            ANKARA          492      738            255  1056    331      0
##  7 07            ANTALYA         548      886            287  1426    824    543
##  8 08            ARTVİN         1005      717           1225   365    679    960
##  9 09            AYDIN           881     1219            340  1635    936    596
## 10 10            BALIKESİR       903     1241            324  1576    842    536
## # … with 71 more rows, and 75 more variables: ANTALYA <dbl>, ARTVİN <dbl>,
## #   AYDIN <dbl>, BALIKESİR <dbl>, BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>,
## #   BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>,
## #   ÇORUM <dbl>, DENİZLİ <dbl>, DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>,
## #   ERZİNCAN <dbl>, ERZURUM <dbl>, ESKİŞEHİR <dbl>, GAZİANTEP <dbl>,
## #   GİRESUN <dbl>, GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>,
## #   MERSİN <dbl>, İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, …
  text(x, y, pos = 4, labels =colnames(ildist2))